home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program46
< prev
next >
Wrap
Text File
|
2007-02-28
|
640b
|
27 lines
0010 // PROGRAM 46
0020 //
0030 // COMELY KATE
0040 //
0050 // TO SOLVE THE CUBIC EQUATION
0060 //
0070 // 3 2
0080 // 10X - 13X + 19X - 25 = 0
0090 //
0100 PRINT
0110 PRINT "PLEASE ENTER THE STARTING VALUE, THE"
0120 PRINT "FINISHING VALUE AND THE STEP LENGTH"
0130 PRINT
0140 INPUT "STARTING VALUE ": START
0150 PRINT
0160 INPUT "FINISHING VALUE ": FINISH
0170 PRINT
0180 INPUT "STEP LENGTH ": STEPVAL
0190 PRINT
0200 PRINT "X VALUE OF EXPRESSION"
0210 PRINT
0220 FOR X:=START TO FINISH STEP STEPVAL DO
0230 EXPRESSION:=((10*X-13)*X+19)*X-25
0240 PRINT X," ",EXPRESSION
0250 ENDFOR X
0260 END